home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / TOUR.WMS < prev    next >
Text File  |  1991-03-22  |  1KB  |  29 lines

  1. ;WinComm Guided tour start up macro.
  2.  
  3. CHGDIR(GETSESSSTR(28))                  ; set default dir to macro dir
  4. i = GETSESSINT(68)
  5. PUTSESSINT(68,0)            ; disable auto sizing
  6. OPEN("TOUR.WSF","",1)
  7. PUTSESSINT(68,i)            ; disable auto sizing
  8. USERWINDOW(5,0,100,33410)
  9. METABKG(0,0,0,"solis.wmf")
  10. SHOW(8)
  11. i = TIME?+2
  12. WHILE(TIME? <i)
  13. WEND
  14.  
  15.    DIALOGBOX 23, 20, 230, 118, 21, "WinComm Guided Tour"
  16.       LTEXT 9, 9, 216, 32, "This Macro is a launching point that will take you on a guided tour of WinComm.  The Function keys at the bottom of the screen can be selected to start other Macros for the demonstration.  The VT102, ANSI, and VIDTEX keys will load"
  17.       LTEXT 9, 40, 216, 41, "a Session for these types of emulations and will 'play back' a file that contain escapes to exercise the emulation.  The other keys will run Macros to demonstrate WinComms other features.  To halt macros that change the menu bar, select 'WinComm Menu'."
  18.       DEFCANCELBUTTON 78, 97, 76, 14, "&Continue"
  19.    DEND
  20.  
  21. i = time?+45
  22. j = 255
  23. while((time?<i) && (j == 255))
  24. j = DIALOG?
  25. wend
  26. if(j == 255) DESTROYDLG
  27.  
  28. end
  29.